home *** CD-ROM | disk | FTP | other *** search
/ Merciful 1 / Merciful - Disc 1.iso / software / r / rexx_plus_compiler / rexxpluscompiler2.dms / in.adf / RexxPlPlot / Examples / examples.zoo / Example02.plot < prev    next >
Encoding:
Text File  |  1990-03-17  |  627 b   |  31 lines
  1. /* Example02.Plot - Demonstrates multiple windows */
  2. /* Modified for RexxPlPlot by Glenn M. Lewis - 9/12/89 */
  3.  
  4. address 'PlPlot'
  5. say 'Please be patient...'
  6.  
  7. /* Divide screen into 16 regions */
  8.  
  9.       'plstar(4,4);'
  10.       'plschr(0.0,3.5);'
  11.       'plfont(4);'
  12.  
  13.       do i=0 to 15
  14.         'pladv(0);'
  15.         vmin = 0.1
  16.         vmax = 0.9
  17.         do j=0 to 2
  18.           'plvpor(vmin,vmax,vmin,vmax);'
  19.           'plwind(0.0,1.0,0.0,1.0);'
  20.           'plbox("bc",0.0,0,"bc",0.0,0);'
  21.           vmin = vmin + 0.1
  22.           vmax = vmax - 0.1
  23.         end j
  24.         'plptex(0.5,0.5,1.0,0.0,0.5,i);'
  25.       end i
  26.  
  27.       'plend();'
  28.  
  29. exit 0
  30.  
  31.